*---- Authors: Maria Nordbrandt, Gina Gustavsson, Karen Nielsen Breidahl
*---- The Unifying Magic, EJPR 2025

***************************************************************

set more off 

***AFFECTIVE POLARIZATION


*DENMARK

*UNWEIGHTED dislike INDEX (dislike index) 
*Higher value=likes more

gen dislike_sociald=Q4_1_DK
gen dislike_venstre=Q4_2_DK
gen dislike_moderat=Q4_3_DK
gen dislike_socfolke=Q4_4_DK
gen dislike_danmarksd=Q4_5_DK
gen dislike_liberal=Q4_6_DK
gen dislike_konserv=Q4_7_DK
gen dislike_enheds=Q4_8_DK
gen dislike_radikale=Q4_9_DK
gen dislike_danskfolk=Q4_10_DK
gen dislike_alternativ=Q4_11_DK
gen dislike_nyeborg=Q4_12_DK


*take the mean feeling towards all parties
egen dislike_mean_row_dk=rowmean(dislike_sociald dislike_venstre dislike_moderat dislike_socfolke dislike_danmarksd dislike_liberal dislike_konserv dislike_enheds dislike_radikale dislike_danskfolk dislike_alternativ dislike_nyeborg)


*take the difference between each party feeling from the mean
bysort caseid: gen dislike_sociald_diff=(dislike_sociald-dislike_mean_row_dk)^2
bysort caseid: gen dislike_venstre_diff=(dislike_venstre-dislike_mean_row_dk)^2
bysort caseid: gen dislike_moderat_diff=(dislike_moderat-dislike_mean_row_dk)^2
bysort caseid: gen dislike_socfolke_diff=(dislike_socfolke-dislike_mean_row_dk)^2
bysort caseid: gen dislike_danmarksd_diff=(dislike_danmarksd-dislike_mean_row_dk)^2
bysort caseid: gen dislike_liberal_diff=(dislike_liberal-dislike_mean_row_dk)^2
bysort caseid: gen dislike_konserv_diff=(dislike_konserv-dislike_mean_row_dk)^2
bysort caseid: gen dislike_enheds_folke_diff=(dislike_enheds-dislike_mean_row_dk)^2
bysort caseid: gen dislike_radikale_diff=(dislike_radikale-dislike_mean_row_dk)^2
bysort caseid: gen dislike_danskfolk_diff=(dislike_danskfolk-dislike_mean_row_dk)^2
bysort caseid: gen dislike_alternativ_diff=(dislike_alternativ-dislike_mean_row_dk)^2
bysort caseid: gen dislike_nyeborg_diff=(dislike_nyeborg-dislike_mean_row_dk)^2


					*	ONLY FOR NEGATIVE PARTISANSHIP ANALYSIS (shows wether the respondent likes the party more or less than the average)
					bysort caseid: gen dislike_sociald_diff_2=(dislike_sociald-dislike_mean_row_dk)
					bysort caseid: gen dislike_venstre_diff_2=(dislike_venstre-dislike_mean_row_dk)
					bysort caseid: gen dislike_moderat_diff_2=(dislike_moderat-dislike_mean_row_dk)
					bysort caseid: gen dislike_socfolke_diff_2=(dislike_socfolke-dislike_mean_row_dk)
					bysort caseid: gen dislike_danmarksd_diff_2=(dislike_danmarksd-dislike_mean_row_dk)
					bysort caseid: gen dislike_liberal_diff_2=(dislike_liberal-dislike_mean_row_dk)
					bysort caseid: gen dislike_konserv_diff_2=(dislike_konserv-dislike_mean_row_dk)
					bysort caseid: gen dislike_enheds_folke_diff_2=(dislike_enheds-dislike_mean_row_dk)
					bysort caseid: gen dislike_radikale_diff_2=(dislike_radikale-dislike_mean_row_dk)
					bysort caseid: gen dislike_danskfolk_diff_2=(dislike_danskfolk-dislike_mean_row_dk)
					bysort caseid: gen dislike_alternativ_diff_2=(dislike_alternativ-dislike_mean_row_dk)
					bysort caseid: gen dislike_nyeborg_diff_2=(dislike_nyeborg-dislike_mean_row_dk)


*sum it up
egen dislike_sum_dk=rowtotal(dislike_sociald_diff dislike_venstre_diff dislike_moderat_diff dislike_socfolke_diff dislike_danmarksd_diff dislike_liberal_diff dislike_konserv_diff dislike_enheds_folke_diff dislike_radikale_diff dislike_danskfolk_diff dislike_alternativ_diff dislike_nyeborg_diff), missing

*divide by number of parties and take the square root
		
gen dislike_sum_mean_dk=(dislike_sum_dk/12)
		
gen dislike_sq_dk=sqrt(dislike_sum_mean_dk)
		
*normalize
gen dislike_dk=(dislike_sq_dk-0)/(2.928547-0)

************************************************

*WEIGHTED DISLIKE INDEX


*weight each party like by the vote share to use for the next step
gen dislike_sociald_w=(dislike_sociald*0.2750)
gen dislike_venstre_w=(dislike_venstre*0.1331)
gen dislike_moderat_w=(dislike_moderat*0.0927)
gen dislike_socfolke_w=(dislike_socfolke*0.0830)
gen dislike_danmarksd_w=(dislike_danmarksd*0.0812)
gen dislike_liberal_w=(dislike_liberal*0.0788)
gen dislike_konserv_w=(dislike_konserv*0.0551)
gen dislike_enheds_w=(dislike_enheds*0.0514)
gen dislike_radikale_w=(dislike_radikale*0.0379)
gen dislike_danskfolk_w=(dislike_danskfolk*0.0264)
gen dislike_alternativ_w=(dislike_alternativ*0.0333)
gen dislike_nyeborg_w=(dislike_nyeborg*0.0367)

**then sum (rowtotal) all of the weighted dislike_p1_w etc to get the average weighted like-i in line with Wagner
egen dislike_mean_row_dk_w=rowtotal(dislike_sociald_w dislike_venstre_w dislike_moderat_w dislike_socfolke_w dislike_danmarksd_w dislike_liberal_w dislike_konserv_w dislike_enheds_w dislike_radikale_w dislike_danskfolk_w dislike_alternativ_w dislike_nyeborg_w)

*drop dislike_mean_row_dk_w

*then weight each party deviation from the weighted mean by the vote share. noet that it shoul dbe the UNweighted 
*party like score that is used!!!
			
			bysort caseid: gen dislike_sociald_w_dk=0.2750*(dislike_sociald-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_sociald_w_dk_sq=dislike_sociald_w_dk^2
			bysort caseid: gen dislike_venstre_w_dk=0.1331*(dislike_venstre-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_venstre_w_dk_sq=dislike_venstre_w_dk^2
			bysort caseid: gen dislike_moderat_w_dk=0.0927*(dislike_moderat-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_moderat_w_dk_sq=dislike_moderat_w_dk^2
			bysort caseid: gen dislike_socfolke_w_dk=0.0830*(dislike_socfolke-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_socfolke_w_dk_sq=dislike_socfolke_w_dk^2
			bysort caseid: gen dislike_danmarksd_w_dk=0.0812*(dislike_danmarksd-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_danmarksd_w_dk_sq=dislike_danmarksd_w_dk^2
			bysort caseid: gen dislike_liberal_w_dk=0.0788*(dislike_liberal-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_liberal_w_dk_sq=dislike_liberal_w_dk^2
			bysort caseid: gen dislike_konserv_w_dk=0.0551*(dislike_konserv-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_konserv_w_dk_sq=dislike_konserv_w_dk^2
			bysort caseid: gen dislike_enheds_w_dk=0.0514*(dislike_enheds-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_enheds_w_dk_sq=dislike_enheds_w_dk^2
			bysort caseid: gen dislike_radikale_w_dk=0.0379*(dislike_radikale-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_radikale_w_dk_sq=dislike_radikale_w_dk^2
			bysort caseid: gen dislike_danskfolk_w_dk=0.0264*(dislike_danskfolk-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_danskfolk_w_dk_sq=dislike_danskfolk_w_dk^2
			bysort caseid: gen dislike_alternativ_w_dk=0.0333*(dislike_alternativ-dislike_mean_row_dk_w) 
			bysort caseid: gen dislike_alternativ_w_dk_sq=dislike_alternativ_w_dk^2
			bysort caseid: gen dislike_nyeborg_w_dk=0.0367*(dislike_nyeborg-dislike_mean_row_dk_w)
			bysort caseid: gen dislike_nyeborg_w_dk_sq=dislike_nyeborg_w_dk^2

			*drop dislike_sociald_w_dk-dislike_nyeborg_w_dk_sq
 
 *then sum it all together  
egen dislike_sum_dk_w=rowtotal(dislike_sociald_w_dk_sq dislike_venstre_w_dk_sq dislike_moderat_w_dk_sq dislike_socfolke_w_dk_sq dislike_danmarksd_w_dk_sq dislike_liberal_w_dk_sq dislike_konserv_w_dk_sq dislike_enheds_w_dk_sq dislike_radikale_w_dk_sq dislike_danskfolk_w_dk_sq dislike_alternativ_w_dk_sq dislike_nyeborg_w_dk_sq), missing

*drop dislike_sum_dk_w

*lastly take the square root as Harteveld does	
bysort caseid: gen dislike_sq_dk_w=sqrt(dislike_sum_dk_w)
*drop dislike_sq_dk_w

*normalize
sum dislike_sq_dk_w
gen dislike_dk_w=(dislike_sq_dk_w-.0055928 )/(1.204055-.0055928 )
sum dislike_dk_w
*drop dislike_dk_w



******************************************************

	
*UNWEIGHTED MEAN DISTANCE FROM MOST LIKED dislike DISLIKE
							
	*the value for the most liked dislike in any of the waves
	egen dislike_max_dk=rowmax(dislike_sociald dislike_venstre dislike_moderat dislike_socfolke dislike_danmarksd dislike_liberal dislike_konserv dislike_enheds dislike_radikale dislike_danskfolk dislike_alternativ dislike_nyeborg)
	
	by caseid: egen dislike_max_mean_dk=mean(dislike_max_dk)
							
	*like_ip-like_max^2
	*take the difference between each dislike feeling from the mean
	bysort caseid: gen dislike_sociald_max=(dislike_sociald-dislike_max_mean_dk)^2
	bysort caseid: gen dislike_venstre_max=(dislike_venstre-dislike_max_mean_dk)^2
	bysort caseid: gen dislike_moderat_max=(dislike_moderat-dislike_max_mean_dk)^2
	bysort caseid: gen dislike_socfolke_max=(dislike_socfolke-dislike_max_mean_dk)^2
	bysort caseid: gen dislike_danmarksd_max=(dislike_danmarksd-dislike_max_mean_dk)^2
	bysort caseid: gen dislike_liberal_max=(dislike_liberal-dislike_mean_row_dk)^2
	bysort caseid: gen dislike_konserv_max=(dislike_konserv-dislike_max_mean_dk)^2
	bysort caseid: gen dislike_enheds_folke_max=(dislike_enheds-dislike_max_mean_dk)^2
	bysort caseid: gen dislike_radikale_max=(dislike_radikale-dislike_max_mean_dk)^2
	bysort caseid: gen dislike_danskfolk_max=(dislike_danskfolk-dislike_max_mean_dk)^2
	bysort caseid: gen dislike_alternativ_max=(dislike_alternativ-dislike_max_mean_dk)^2
	bysort caseid: gen dislike_nyeborg_max=(dislike_nyeborg-dislike_max_mean_dk)^2

						
				
	*sum it up
	egen dislike_max_sum_dk=rowtotal(dislike_sociald_max dislike_venstre_max dislike_moderat_max dislike_socfolke_max dislike_danmarksd_max dislike_liberal_max dislike_konserv_max dislike_enheds_folke_max dislike_radikale_max dislike_danskfolk_max dislike_alternativ_max dislike_nyeborg_max), missing
								
	*divide by number of parties minus 1 and take the square root
	by caseid: gen dislike_max_tot_dk=sqrt(dislike_max_sum_dk/12)
													
	gen dislike_dist_n_dk=(dislike_max_tot_dk-0)/ (5.632454-0)

		
**********************************************************************

*WEIGHTED MEAN DISTANCE FROM MOST LIKED PARTY dislike

								
	*multiply the vote share of each party by (like_ip-like_p_mean_max)^2 
	bysort caseid: gen dislike_sociald_max_w=0.2750*(dislike_sociald-dislike_max_mean_dk)
	bysort caseid: gen dislike_sociald_max_w_sq=dislike_sociald_max_w^2
	bysort caseid: gen dislike_venstre_max_w=0.1331*(dislike_venstre-dislike_max_mean_dk)
	bysort caseid: gen dislike_venstre_max_w_sq=dislike_venstre_max_w^2
	bysort caseid: gen dislike_moderat_max_w=0.0927*(dislike_moderat-dislike_max_mean_dk)
	bysort caseid: gen dislike_moderat_max_w_sq=dislike_moderat_max_w^2
	bysort caseid: gen dislike_socfolke_max_w=0.0830*(dislike_socfolke-dislike_max_mean_dk)
	bysort caseid: gen dislike_socfolke_max_w_sq=dislike_socfolke_max_w^2
	bysort caseid: gen dislike_danmarksd_max_w=0.0812*(dislike_danmarksd-dislike_max_mean_dk)
	bysort caseid: gen dislike_danmarksd_max_w_sq=dislike_danmarksd_max_w^2
	bysort caseid: gen dislike_liberal_max_w=0.0788*(dislike_liberal-dislike_max_mean_dk)
	bysort caseid: gen dislike_liberal_max_w_sq=dislike_liberal_max_w^2
	bysort caseid: gen dislike_konserv_max_w=0.0551*(dislike_konserv-dislike_max_mean_dk)
	bysort caseid: gen dislike_konserv_max_w_sq=dislike_konserv_max_w^2
	bysort caseid: gen dislike_enheds_folke_max_w=0.0514*(dislike_enheds-dislike_max_mean_dk)
	bysort caseid: gen dislike_enheds_folke_max_w_sq=dislike_enheds_folke_max_w^2
	bysort caseid: gen dislike_radikale_max_w=0.0379*(dislike_radikale-dislike_max_mean_dk)
	bysort caseid: gen dislike_radikale_max_w_sq=dislike_radikale_max_w^2
	bysort caseid: gen dislike_danskfolk_max_w=0.0264*(dislike_danskfolk-dislike_max_mean_dk)
	bysort caseid: gen dislike_danskfolk_max_w_sq=dislike_danskfolk_max_w^2
	bysort caseid: gen dislike_alternativ_max_w=0.0333*(dislike_alternativ-dislike_max_mean_dk)
	bysort caseid: gen dislike_alternativ_max_w_sq=dislike_alternativ_max_w^2
	bysort caseid: gen dislike_nyeborg_max_w=0.0367*(dislike_nyeborg-dislike_max_mean_dk)
	bysort caseid: gen dislike_nyeborg_max_w_sq=dislike_nyeborg_max_w^2
	

	*sum it up
	egen dislike_symp_sum_max_dk=rowtotal(dislike_sociald_max_w_sq dislike_venstre_max_w_sq dislike_moderat_max_w_sq dislike_socfolke_max_w_sq dislike_danmarksd_max_w_sq dislike_liberal_max_w_sq dislike_konserv_max_w_sq dislike_enheds_folke_max_w_sq dislike_radikale_max_w_sq dislike_danskfolk_max_w_sq dislike_alternativ_max_w_sq dislike_nyeborg_max_w_sq)
	
	
	by caseid: gen dislike_symp_max_v_dk=sqrt(dislike_symp_sum_max_dk)
	
	gen dislike_dist_n_dk_w=(dislike_symp_max_v_dk-0)/ (2.162074-0)





**********************************************************************

*SWEDEN

*UNWEIGHTED dislike INDEX (dislike index) 
*Higher value=likes more

gen dislike_socdem=Q4_1_SE
gen dislike_vp=Q4_2_SE
gen dislike_mp=Q4_3_SE
gen dislike_cent=Q4_4_SE
gen dislike_lib=Q4_5_SE
gen dislike_mod=Q4_6_SE
gen dislike_kd=Q4_7_SE
gen dislike_sd=Q4_8_SE



*take the mean feeling towards all parties across waves
egen dislike_mean_row_se=rowmean(dislike_socdem dislike_vp dislike_mp dislike_cent dislike_lib dislike_mod dislike_kd dislike_sd)


*take the difference between each party feeling from the mean
bysort caseid: gen dislike_socdem_diff=(dislike_socdem-dislike_mean_row_se)^2
bysort caseid: gen dislike_vp_diff=(dislike_vp-dislike_mean_row_se)^2
bysort caseid: gen dislike_mp_diff=(dislike_mp-dislike_mean_row_se)^2
bysort caseid: gen dislike_cent_diff=(dislike_cent-dislike_mean_row_se)^2
bysort caseid: gen dislike_lib_diff=(dislike_lib-dislike_mean_row_se)^2
bysort caseid: gen dislike_mod_diff=(dislike_mod-dislike_mean_row_se)^2
bysort caseid: gen dislike_kd_diff=(dislike_kd-dislike_mean_row_se)^2
bysort caseid: gen dislike_sd_diff=(dislike_sd-dislike_mean_row_se)^2

				*ONLY FOR NEGATIVE PARTISANHIP ANALYSIS (positive value = LIKES more than average)
				
				bysort caseid: gen dislike_socdem_diff_2=(dislike_socdem-dislike_mean_row_se)
				bysort caseid: gen dislike_vp_diff_2=(dislike_vp-dislike_mean_row_se)
				bysort caseid: gen dislike_mp_diff_2=(dislike_mp-dislike_mean_row_se)
				bysort caseid: gen dislike_cent_diff_2=(dislike_cent-dislike_mean_row_se)
				bysort caseid: gen dislike_lib_diff_2=(dislike_lib-dislike_mean_row_se)
				bysort caseid: gen dislike_mod_diff_2=(dislike_mod-dislike_mean_row_se)
				bysort caseid: gen dislike_kd_diff_2=(dislike_kd-dislike_mean_row_se)
				bysort caseid: gen dislike_sd_diff_2=(dislike_sd-dislike_mean_row_se)
				
					*Normalize variables
					sum dislike_socdem_diff_2 
					sum dislike_vp_diff_2 
					sum dislike_mp_diff_2 
					sum dislike_cent_diff_2 
					sum dislike_lib_diff_2 
					sum dislike_mod_diff_2 
					sum dislike_kd_diff_2 
					sum dislike_sd_diff_2
					
					
					gen neg_socdem=(dislike_socdem_diff_2-(-3.375)) / (5-(-3.375))
					gen neg_vp=(dislike_vp_diff_2-(-3.375)) / (5.25-(-3.375))
					gen neg_mp=(dislike_mp_diff_2-(-4)) / (3.875-(-4))
					gen neg_cent=(dislike_cent_diff_2-(-3.5)) / (4.875-(-3.5))
					gen neg_lib=(dislike_lib_diff_2-(-3.125)) / (3.625-(-3.125))
					gen neg_mod=(dislike_mod_diff_2-(-3.875)) / (4.375-(-3.875))
					gen neg_kd=(dislike_kd_diff_2-(-3.75)) / (4.25-(-3.75))
					gen neg_sd=(dislike_sd_diff_2-(-3.875)) / (5.25-(-3.875))
				


*sum it up
egen dislike_sum_se=rowtotal(dislike_socdem_diff dislike_vp_diff dislike_mp_diff dislike_cent_diff dislike_lib_diff dislike_mod_diff dislike_kd_diff dislike_sd_diff), missing

*divide by number of parties and take the square root
		
gen dislike_sum_mean_se=(dislike_sum_se/8)
		
gen dislike_sq_se=sqrt(dislike_sum_mean_se)
		
*normalize
gen dislike_se=(dislike_sq_se-0)/(2.904737-0)


egen dislike_n=rowtotal(dislike_dk dislike_se), missing



***********************************************


*WEIGHTED dislike INDEX

*Same as for Denmark

gen dislike_socdem_w=(dislike_socdem*0.3033)
gen dislike_vp_w=(dislike_vp*0.0675)
gen dislike_mp_w=(dislike_mp*0.0508)
gen dislike_cent_w=(dislike_cent*0.0671)
gen dislike_lib_w=(dislike_lib*0.0461)
gen dislike_mod_w=(dislike_mod*0.1910)
gen dislike_kd_w=(dislike_kd*0.0534)
gen dislike_sd_w=(dislike_sd*0.2054)

**then sum (rowtotal) all of dislike_p1_w etc  to get the weighted average like-i etc. 
egen dislike_mean_row_se_w=rowtotal(dislike_socdem_w dislike_vp_w dislike_mp_w dislike_cent_w dislike_lib_w dislike_mod_w dislike_kd_w dislike_sd_w)
*drop dislike_mean_row_se_w

*then weight each party deviation by the vote share using the UNweighted like-score
 
			bysort caseid: gen dislike_socdem_w_se=0.3033*(dislike_socdem-dislike_mean_row_se_w)
			bysort caseid: gen dislike_socdem_w_se_sq=dislike_socdem_w_se^2
			bysort caseid: gen dislike_vp_w_se=0.0675*(dislike_vp-dislike_mean_row_se_w)
			bysort caseid: gen dislike_vp_w_se_sq=dislike_vp_w_se^2
			bysort caseid: gen dislike_mp_w_se=0.0508*(dislike_mp-dislike_mean_row_se_w)
			bysort caseid: gen dislike_mp_w_se_sq=dislike_mp_w_se^2
			bysort caseid: gen dislike_cent_w_se=0.0671*(dislike_cent-dislike_mean_row_se_w)
			bysort caseid: gen dislike_cent_w_se_sq=dislike_cent_w_se^2
			bysort caseid: gen dislike_lib_w_se=0.0461*(dislike_lib-dislike_mean_row_se_w)
			bysort caseid: gen dislike_lib_w_se_sq=dislike_lib_w_se^2
			bysort caseid: gen dislike_mod_w_se=0.1910*(dislike_mod-dislike_mean_row_se_w)
			bysort caseid: gen dislike_mod_w_se_sq=dislike_mod_w_se^2
			bysort caseid: gen dislike_kd_w_se=0.0534*(dislike_kd-dislike_mean_row_se_w)
			bysort caseid: gen dislike_kd_w_se_sq=dislike_kd_w_se^2
			bysort caseid: gen dislike_sd_w_se=0.2054*(dislike_sd-dislike_mean_row_se_w)
			bysort caseid: gen dislike_sd_w_se_sq=dislike_sd_w_se^2
			
			*drop dislike_socdem_w_se-dislike_sd_w_se_sq
			
 *then sum it all together  
egen dislike_sum_se_w=rowtotal(dislike_socdem_w_se_sq dislike_vp_w_se_sq dislike_mp_w_se_sq dislike_cent_w_se_sq dislike_lib_w_se_sq dislike_mod_w_se_sq dislike_kd_w_se_sq dislike_sd_w_se_sq), missing
*drop dislike_sum_se_w

*lastly take the square root as Harteveld does	
bysort caseid: gen dislike_sum_se_w_sqr=sqrt(dislike_sum_se_w)
*drop dislike_sum_se_w_sqr

*normalize
sum dislike_sum_se_w_sqr
gen dislike_se_w=(dislike_sum_se_w_sqr-0.0066645 )/(1.364271-0.0066645)
sum dislike_se_w
*drop dislike_se_w

*COMBINE SWEDEN AND DENMARK
egen dislike_n_w=rowtotal(dislike_dk_w dislike_se_w), missing
sum dislike_n_w
*drop dislike_n_w



************************************************************************

*UNWEIGHTED MEAN DISTANCE FROM MOST LIKED dislike 
							
	*the value for the most liked dislike in any of the waves
	egen dislike_max_se=rowmax(dislike_socdem dislike_vp dislike_mp dislike_cent dislike_lib dislike_mod dislike_kd dislike_sd)
	
	by caseid: egen dislike_max_mean_se=mean(dislike_max_se)
	
							
	*like_ip-like_max^2
	*take the difference between each dislike feeling from the mean
	bysort caseid: gen dislike_socdem_max=(dislike_socdem_w-dislike_max_mean_se)^2
	bysort caseid: gen dislike_vp_max=(dislike_vp_w-dislike_max_mean_se)^2
	bysort caseid: gen dislike_mp_max=(dislike_mp_w-dislike_max_mean_se)^2
	bysort caseid: gen dislike_cent_max=(dislike_cent_w-dislike_max_mean_se)^2
	bysort caseid: gen dislike_lib_max=(dislike_lib_w-dislike_max_mean_se)^2
	bysort caseid: gen dislike_mod_max=(dislike_mod_w-dislike_max_mean_se)^2
	bysort caseid: gen dislike_kd_max=(dislike_kd_w-dislike_max_mean_se)^2
	bysort caseid: gen dislike_sd_max=(dislike_sd_w-dislike_max_mean_se)^2
					
				
	*sum it up
	egen dislike_max_sum_se=rowtotal(dislike_socdem_max dislike_vp_max dislike_mp_max dislike_cent_max dislike_lib_max dislike_mod_max dislike_kd_max dislike_sd_max), missing
								
	*divide by number of parties minus 1 and take the square root
	by caseid: gen dislike_max_tot_se=(dislike_max_sum_se/8)^0.5
													
	gen dislike_dist_n_se=(dislike_max_tot_se-0.8816233 )/ ( 6.827807-0.8816233 )
	
egen dislike_dist_n=rowtotal(dislike_dist_n_dk dislike_dist_n_se), missing

*****************************************************************************

*WEIGHTED MEAN DISTANCE FROM MOST LIKED dislike

	*multiply the vote share of each party by (like_ip-like_p_mean_max)^2 
	bysort caseid: gen dislike_socdem_max_w=0.3033*(dislike_socdem-dislike_max_mean_se)
	bysort caseid: gen dislike_socdem_max_w_sq=dislike_socdem_max_w^2
	bysort caseid: gen dislike_vp_max_w=0.0675*(dislike_vp-dislike_max_mean_se)
	bysort caseid: gen dislike_vp_max_w_sq=dislike_vp_max_w^2
	bysort caseid: gen dislike_mp_max_w=0.0508*(dislike_mp-dislike_max_mean_se)
	bysort caseid: gen dislike_mp_max_w_sq=dislike_mp_max_w^2
	bysort caseid: gen dislike_cent_max_w=0.0671*(dislike_cent-dislike_max_mean_se)
	bysort caseid: gen dislike_cent_max_w_sq=dislike_cent_max_w^2
	bysort caseid: gen dislike_lib_max_w=0.0461*(dislike_lib-dislike_max_mean_se)
	bysort caseid: gen dislike_lib_max_w_sq=dislike_lib_max_w^2
	bysort caseid: gen dislike_mod_max_w=0.1910*(dislike_mod-dislike_max_mean_se)
	bysort caseid: gen dislike_mod_max_w_sq=dislike_mod_max_w^2
	bysort caseid: gen dislike_kd_max_w=0.0534*(dislike_kd-dislike_max_mean_se)
	bysort caseid: gen dislike_kd_max_w_sq=dislike_kd_max_w^2
	bysort caseid: gen dislike_sd_max_w=0.2054*(dislike_sd-dislike_max_mean_se)
	bysort caseid: gen dislike_sd_max_w_sq=dislike_sd_max_w^2

	
	
	*sum it up
	egen dislike_symp_sum_max_se=rowtotal(dislike_socdem_max_w_sq dislike_vp_max_w_sq dislike_mp_max_w_sq dislike_cent_max_w_sq dislike_lib_max_w_sq dislike_mod_max_w_sq dislike_kd_max_w_sq dislike_sd_max_w_sq)
	
	
	by caseid: gen dislike_symp_max_v_se=sqrt(dislike_symp_sum_max_se)
	
	gen dislike_dist_n_se_w=(dislike_symp_max_v_se-0)/ (2.596532-0)
	
	
*COMBINE SWEDEN AND DENMARK
egen dislike_dist_n_w=rowtotal(dislike_dist_n_dk_w dislike_dist_n_se_w), missing


